home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / gui / muibuilderv11.lha / muibuilder / install / Install_MB < prev   
Text File  |  1994-03-28  |  8KB  |  312 lines
  1. (complete 0)
  2.  
  3. ;===========================================================================
  4. ; English strings
  5.  
  6. (if (= @language "english")
  7. (
  8. (set locale 0)
  9.  
  10. (set #bad-MUI         (cat "You need at least MUI2.0 to use MUIBuilder1.1." ))
  11. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  12. (set #copy         (cat "Copying MUIBuilder"))
  13. (set #doc-copy         (cat "Copying Documentation"))
  14. (set #olddoc         (cat "/Documentations/MUIBuilder.guide"))
  15. (set #copyENV         (cat "Copying to ENV:"))
  16. (set #copyENVARC     (cat "Copying to ENVARC:"))
  17. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  18. (set #copycatalog     (cat "Installation of the english catalogue."))
  19. (set #catalogname     (cat "/Catalogs/English/MUIBuilder.catalog"))
  20. (set #destname         (cat "Locale:Catalogs/English"))
  21. (set #genchoice        (cat "Chose the generators you need"))
  22. (set #Cnew        (cat "C language [ new generator ]"))
  23. (set #Cold        (cat "C language [ old generator ]"))
  24. (set #E            (cat "E language"))
  25. (set #Assembly        (cat "Assembly language ( will install ss.library)"))
  26. (set #libcopy        (cat "Copying ss.library to LIBS:"))
  27.  
  28. ))
  29.  
  30. ;===========================================================================
  31. ; French strings
  32.  
  33. (if (= @language "français")
  34. (
  35. (set locale 1)
  36.  
  37. (set #bad-MUI         (cat "Vous avez besoin au moins de MUI2.0 pour utiliser MUIBuilder 1.1." ))
  38. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire de MUIBuider." ))
  39. (set #copy         (cat "Copie de MUIBuilder"))
  40. (set #doc-copy         (cat "Copie de la Documentation"))
  41. (set #olddoc         (cat "/Documentations/MUIBuilderFrançais.guide"))
  42. (set #copyENV         (cat "Copie des variables d'environnement dans ENV:"))
  43. (set #copyENVARC     (cat "Copie des variables d'environnement dans ENVARC:"))
  44. (set #installcatalog     (cat "\n\nVoulez vous installer le catalogue Français ?"))
  45. (set #copycatalog     (cat "Installation du catalogue Français."))
  46. (set #catalogname     (cat "/Catalogs/Français/MUIBuilder.catalog"))
  47. (set #destname         (cat "Locale:Catalogs/Français"))
  48. (set #genchoice        (cat "Choisissez les modules externes dont vous avez besoin"))
  49. (set #Cnew        (cat "Langage C [ nouveau module ]"))
  50. (set #Cold        (cat "Langage C [ vieux   module ]"))
  51. (set #E            (cat "Langage E"))
  52. (set #Assembly        (cat "Langage Assembleur [installe la ss.library]"))
  53. (set #libcopy        (cat "Copie de la ss.library vers LIBS:"))
  54.  
  55. ))
  56.  
  57. ;===========================================================================
  58. ; German strings
  59.  
  60. (if (= @language "deutsch")
  61. (
  62. (set locale 2)
  63.  
  64. (set #bad-MUI         (cat "Sie benötigen mindestens MUI2.0, um MUIBuilder1.1 zu nutzen."))
  65. (set #dir-choice     (cat "Wählen Sie das Verzeichnis aus, in welches das Verzeichnis von MUIBuilderV1.1 installiert wird."))
  66. (set #copy         (cat "Kopiere MUIBuilder"))
  67. (set #doc-copy         (cat "Kopiere Dokumentation"))
  68. (set #olddoc         (cat "/Documentations/MUIBuilderDeutsch.guide"))
  69. (set #copyENV         (cat "Kopiere nach ENV:"))
  70. (set #copyENVARC     (cat "Kopiere nach ENVARC:"))
  71. (set #installcatalog     (cat "\n\nSoll der deutsche Catalog installiert werden?"))
  72. (set #copycatalog     (cat "Installiere deutschen Catalog." ))
  73. (set #catalogname     (cat "/Catalogs/Deutsch/MUIBuilder.catalog"))
  74. (set #destname         (cat "Locale:Catalogs/Deutsch"))
  75. (set #genchoice        (cat "Wählen Sie die Modulen aus, die Sie wollen"))
  76. (set #Cnew        (cat "C Sprache [ neues Module ]"))
  77. (set #Cold        (cat "C Sprache [ V1.0  Module ]"))
  78. (set #E            (cat "E Sprache"))
  79. (set #Assembly        (cat "Assembly Sprache (installiert ss.library)"))
  80. (set #libcopy        (cat "Kopiere ss.library nach LIBS:"))
  81.  
  82. ))
  83.  
  84. ;===========================================================================
  85. ; Czech strings
  86.  
  87. (if (= @language "czech")
  88. (
  89. (set locale 3)
  90.  
  91. (set #bad-MUI         (cat "MUIBuilder vyùaduje MUI2.0 !" ))
  92. (set #dir-choice     (cat "Zvolte adresáê, ve kterém chcete vytvoêit adresáê pro MUIBuilder." ))
  93. (set #copy         (cat "Kopíruji MUIBuilder"))
  94. (set #doc-copy         (cat "Kopíruji Dokumentaci"))
  95. (set #olddoc         (cat "/Documentations/MUIBuilder.guide"))
  96. (set #copyENV         (cat "Kopíruji do ENV:"))
  97. (set #copyENVARC     (cat "Kopíruji do ENVARC:"))
  98. (set #installcatalog     (cat "\n\nChcete nainstalovat çeský katalog?"))
  99. (set #copycatalog     (cat "Instaluji çeský katalog."))
  100. (set #catalogname     (cat "/Catalogs/Czech/MUIBuilder.catalog"))
  101. (set #destname         (cat "Locale:Catalogs/Czech"))
  102. (set #genchoice        (cat "Zvolte generátory, které si pêejete nainstalovat"))
  103. (set #Cnew        (cat "Jazyk C [ nový generátor ]"))
  104. (set #Cold        (cat "Jazyk C [ starý generátor ]"))
  105. (set #E            (cat "Jazyk E"))
  106. (set #Assembly        (cat "Assembler ( nainstaluje také ss.library)"))
  107. (set #libcopy        (cat "Kopíruji ss.library do LIBS:"))
  108.  
  109. ))
  110.  
  111. ;=============================================================================
  112. ;=============================================================================
  113. ; Installation procedure
  114.  
  115. ( set MBdir "Ram:" )
  116.  
  117. ;========================================================================
  118. ;
  119. ; Scanning MUI version
  120. ;
  121.  
  122. ( set versionnumber (getversion "LIBS:muimaster.library" ) )
  123. ( set version (/ versionnumber 65536))
  124.  
  125. ( if (< version 7.973)
  126.     (
  127.         (if (= locale 0)
  128.                 ( abort #bad-MUI )
  129.         )
  130.     )
  131. )
  132.  
  133. ;========================================================================
  134. ;
  135. ; Select the MUIBuilder directory
  136. ;
  137.  
  138. (set MBdir
  139.     ( askdir
  140.         ( prompt #dir-choice )
  141.         (help "")
  142.         (default "Sys:")
  143.         (newpath)
  144.     )
  145. )
  146.  
  147. ;========================================================================
  148. ;
  149. ; Copying MUIBuilder
  150. ;
  151.  
  152. (complete 10)
  153.  
  154. (set MBdir ( tackon MBdir "MUIBuilder" ) )
  155. (set @default-dest MBdir )
  156.  
  157. (copyfiles
  158.     (prompt #copy)
  159.     (source "/MB")
  160.     (help   @copyfiles-help)
  161.     (infos)
  162.     (dest MBdir)
  163.     (choices "BuilderSave" "C" "E" "Asm" "Catalogs" "MUIBuilder")
  164.     (confirm)
  165. )
  166.  
  167. (complete 25)
  168.  
  169. ;========================================================================
  170. ;
  171. ; Copying Modules
  172.  
  173. (set modules
  174.     (askoptions
  175.         (prompt     #genchoice)
  176.         (help     @askoptions-help)
  177.         (choices #Cnew
  178.              #Cold
  179.              #E
  180.              #Assembly
  181.         )
  182.         (default 15)
  183.     )
  184. )
  185.  
  186. ;======================
  187. ; Copying GenCodeC
  188. ;
  189. (if (IN modules 0)
  190.     (
  191.         (copyfiles
  192.             (source "/MB/Modules")
  193.             (dest (tackon MBdir "Modules"))
  194.             (choices "GenCodeC" "C-Header")
  195.         )
  196.     )
  197. )    
  198.  
  199. ;======================
  200. ; Copying GenCodeC_Old
  201. ;
  202. (if (IN modules 1)
  203.     (
  204.         (copyfiles
  205.             (source "/MB/Modules")
  206.             (dest (tackon MBdir "Modules"))
  207.             (choices "GenCodeC_Old" "C-Header_Old")
  208.         )
  209.     )
  210. )
  211.  
  212. ;======================
  213. ; Copying GenCodeE
  214. ;
  215. (if (IN modules 2)
  216.     (
  217.         (copyfiles
  218.             (source "/MB/Modules")
  219.             (dest (tackon MBdir "Modules"))
  220.             (choices "GenCodeE")
  221.         )
  222.     )
  223. )
  224.  
  225. ;======================
  226. ; Copying GenCodeAsm
  227. ;
  228. (if (IN modules 3)
  229.     (
  230.         (copyfiles
  231.             (source "/MB/Modules")
  232.             (dest (tackon MBdir "Modules"))
  233.             (choices "GenCodeAsm")
  234.         )
  235.         (copylib
  236.             (source    "/Libs/ss.library")
  237.             (dest "LIBS:")
  238.             (prompt #libcopy)
  239.             (help @copylib-help)
  240.             (confirm)
  241.         )
  242.     )
  243. )
  244.  
  245. (complete 50)
  246.  
  247. ;========================================================================
  248. ;
  249. ; Copying documentation
  250. ;
  251.  
  252. ( set MBdoc ( tackon MBdir "Documentations" ) )
  253.  
  254. (copyfiles
  255.     (prompt #doc-copy)
  256.     (source #olddoc)
  257.     (newname "MUIBuilder.guide")
  258.     (help @copyfiles-help)
  259.         (infos)
  260.     (confirm)
  261.         (dest MBdoc )
  262. )
  263.  
  264. ;========================================================================
  265. ;
  266. ; copying MUIBuilder.catalog files
  267. ;
  268.  
  269. (complete 60)
  270.  
  271. (if (> locale 0)
  272.     (if     (askbool
  273.         (prompt #installcatalog)
  274.         (help   "")
  275.         )
  276.         (copylib
  277.             (prompt #copycatalog)
  278.             (source #catalogname)
  279.             (dest   #destname)
  280.             (help   @copylib-help)
  281.             (confirm)
  282.         )
  283.     )
  284. )
  285.  
  286. ;=========================================================================
  287. ;
  288. ; Copying environment variables
  289. ;
  290.  
  291. (complete 80)
  292.  
  293. (copyfiles
  294.     (prompt #copyENV)
  295.     (source "/Env")
  296.     (dest   "ENV:")
  297.     (all)
  298. )
  299.  
  300. (copyfiles
  301.     (prompt #copyENVARC)
  302.     (source "/Env")
  303.     (dest   "ENVARC:")
  304.     (help   @copyfiles-help)
  305.     (confirm)
  306.     (all)
  307. )
  308.  
  309. (complete 99)
  310.  
  311. (exit)
  312.